;************************************************
;	BIOS  GAMMA-DOS FOR GAMMA-DOS/'QUORUM'	*
;         26.10.92 λαςινοχ λανιμψ       	*
;	σιστενξωε πεςενεξξωε BIOS		*
;	ιϊνεξεξιρ οτ 16.03.93			*
;	χαςιαξτ CCP ι BDOS ROBOTRON 1715	*
;************************************************
RESTRT	EQU	0000H	;τεπμωκ σταςτ CP/M-80	+
BBTIO	EQU	0003H	;βυζες βακτα I/O	+
BDISK	EQU	0004H	;βυζες τελυύεηο δισλα	+
FBDOS	EQU	0005H	;χωϊοχ ζυξλγικ BDOS	+
AINTM2	EQU	0035H	;αδςεσ χελτοςα IM 2	+
AINTM1	EQU	0038H	;αδςεσ χελτοςα IM 1	+
FINTM	EQU	003DH	;βυζες ζμαηα INT MODE	+
SBDMA	EQU	0080H	;σιστενξωκ βυζες DMA	+
;-----------------------------------------------+
VBDOS	EQU	01B80H	;αδςεσ χωϊοχα BDOS	+
BDOS	EQU	01B80H	;αδςεσ ξαώαμα BDOS	+
CCP	EQU	01400H	;αδςεσ ξαώαμα CCP	+
;						+
AIM2	EQU	034FFH	;αδςεσ χελτοςα  IM 2	+
AZNG	EQU	03500H	;ϊξαλοηεξεςατος λοι-7	+
;************************************************
;
;	αδςεσα πεςενεξξωθ BDOS
LCDB1	EQU	01E7DH
LCDB4	EQU	01E80H
LCDB5	EQU	01E81H
LD7DF	EQU	028ABH
LD7E3	EQU	028AFH
;
;************************************************
;	σιστενξαρ οβμαστψ δαξξωθ GAMMA-DOS
;
;	σιστενξωε πεςενεξξωε
FLSCR	EQU	03480H	;1 λοδιςοχλα ϊξαλοηεξεςατοςα
;	(CODE)D2,D1,D0	- 000B - λοι-8
;			- 001B - ASCII
;			- 010B - λοι-7 ματ+ςυσ
;			- 011B - λοι-7 ςυσ
;			- 100B - IBM
ATRIB	EQU	03481H	;1 ατςιβυτω όλςαξα
BORDUR	EQU	03482H	;1 λοδ βοςδΰςα
ADRCUR	EQU	03483H	;2 αδςεσ λυςσοςα
NUMSTR	EQU	03483H	;1  (ξονες στςολι)0..23
NUMCOL	EQU	03484H	;1  (ξονες λομοξλι)0..41
ADRZG	EQU	03485H	;2 αδςεσ ϊξαλ0ηεξεςατοςα
BUPMEM	EQU	03487H	;1 βυζες θςαξεξιρ βακτα υπς.πανρτψΰ
BUFESC	EQU	03488H	;1 βυζες θςαξεξιρ ESC-λοναξδ
BUFSP	EQU	03489H	;2 βυζες χςενεξξοηο θςαξεξιρ SP
SCBEEP	EQU	0348BH	;2 παςανετςω σιηξαμα BEEP SCR
			;	ώαστοτα ϊατεν δμιτεμψξοστψ
KSTAT0	EQU	0348DH	;4 δχα βυζεςα
KSTAT4	EQU	03491H	;4 	σλαξιςοχαξιρ KBD
LASTK	EQU	03495H	;1 λοδ ποσμεδξεκ ξαφατοκ λμαχιϋι
REPDEL	EQU	03496H	;1 ϊαδεςφλα δμρ αχτο-ποχτοςα	 20H
REPPER	EQU	03497H	;1 ϊαδεςφλα δμρ υστςαξεξιρ δςεβεϊηα 5H
FLGKBD	EQU	03498H	;1 D0 = 0 ματιξσλικ ςεηιστς
			;     = 1 ςυσσλικ ςεηιστς
			;  D7 = 1 CAPS/LOCK ϊαημαχξωε
			;     = 0 CAPS/LOCK πςοπισξωε
FLAGS	EQU	03499H	;1 D7 = 1 εστψ ηοτοχξοστψ KBD
			;  D7 = 0  ξετ ηοτοχξοστι KBD
			;  D6 = 1 ξαφατα ζυξλγιοξαμψξαρ λμαχιϋα
			;  D6 = 0 ξετ FKBD
			;  D5..D0 λοδ σνεύεξιρ FKBD εσμι D6=1
FRAMES	EQU	0349AH	;4 βακτα σώετώιλα τιλοχ
SCANK	EQU	0349EH	;2 σλαξ-λοδω λμαχιϋ, οσξοχξοκ
			;	    ι δοπομξιτεμψξωκ
MFDCUP	EQU	034A0H	;1 βυζες βακτα υπςαχμ. FDC
COUNMO	EQU	034A1H	;1 σώετώιλ ςαβοτω νοτοςα
			;
TFNKBD	EQU	034A2H	; 5 ταβμιγα ζυξλγ. λμαχιϋ
			; 1 'F1'
			; 1 'F2'
			; 1 'F3'
			; 1 'F4'
			; 1 'F5'
TCDKBD	EQU	034A8H	;16 ταβμιγα λοδοχ δοπ.λμαχ
			;'0','1','2','3','4'
			;'5','6','7','8','9'
			;'.','enter','F6','F7','F8','F9'
TKBDD	EQU	034B8H	;10 λοδω γιζςοχωθ λμαχιϋ + CAPS/SHIFT
PARDA	EQU	034C2H	;21 παςανετςω πο υνομώαξιΰ δισλα A>
PARDB	EQU	034D7H	;21 παςανετςω πο υνομώαξιΰ δισλα B>
;
;------------------------------------------------------------
;	βυζεςα δισλοχοδοχ
;
ALV0	EQU	03300H		; 50 0EC26H
ALV1	EQU	03300H+50	; 50 0EC58H
ALV2	EQU	03300H+100	; 50 ςεϊεςχ
CSV0	EQU	03300H+150	; 32 0ED00H
CSV1	EQU	03300H+182	; 32 0ED20H
CSV2	EQU	03300H+214	; 32 ςεϊεςχ
;
DIRBUF	EQU	03400H		;128 0EBA6H
;
BUFD1	EQU	03800H	;1-ωκ βυζες δισλοχοδοχ
BUFD2	EQU	03C00H  ;2-οκ βυζες δισλοχοδοχ
;---------------------------------------------

    χσταχλα λο